home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / anigif / form1.frm < prev    next >
Text File  |  1999-09-26  |  3KB  |  95 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   2820
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4530
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   2715
  12.    ScaleWidth      =   4530
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Close"
  15.       Height          =   405
  16.       Left            =   2955
  17.       TabIndex        =   3
  18.       Top             =   735
  19.       Width           =   900
  20.    End
  21.    Begin VB.PictureBox Picture1 
  22.       Appearance      =   0  'Flat
  23.       BackColor       =   &H80000005&
  24.       ForeColor       =   &H80000008&
  25.       Height          =   1455
  26.       Left            =   360
  27.       ScaleHeight     =   1425
  28.       ScaleWidth      =   1995
  29.       TabIndex        =   0
  30.       Top             =   255
  31.       Width           =   2025
  32.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  33.          Height          =   1770
  34.          Left            =   -255
  35.          TabIndex        =   1
  36.          Top             =   -270
  37.          Width           =   2625
  38.          ExtentX         =   4630
  39.          ExtentY         =   3122
  40.          ViewMode        =   0
  41.          Offline         =   0
  42.          Silent          =   0
  43.          RegisterAsBrowser=   0
  44.          RegisterAsDropTarget=   1
  45.          AutoArrange     =   0   'False
  46.          NoClientEdge    =   0   'False
  47.          AlignLeft       =   0   'False
  48.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  49.          Location        =   ""
  50.       End
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   "A work around way to use an animated gif on a form"
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   12
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   675
  64.       Left            =   375
  65.       TabIndex        =   2
  66.       Top             =   1860
  67.       Width           =   3555
  68.    End
  69. End
  70. Attribute VB_Name = "Form1"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75.  
  76. Option Explicit
  77. Public PicPath As String
  78.  
  79. Private Sub Command1_Click()
  80. Unload Me
  81. End Sub
  82.  
  83. Private Sub Form_Load()
  84.  
  85. PicPath = App.Path & "\ani.html"
  86. WebBrowser1.Navigate PicPath
  87.  
  88. End Sub
  89.  
  90. Private Sub Form_Resize()
  91. WebBrowser1.Height = Me.Height
  92.  
  93. End Sub
  94.  
  95.